home *** CD-ROM | disk | FTP | other *** search
/ Technotools / Technotools (Chestnut CD-ROM)(1993).ISO / misc_pto / autil100 / correct.asi < prev    next >
Text File  |  1991-11-11  |  477b  |  32 lines
  1. start:
  2.  
  3. rem This program generates a smiley-face and the word CORRECT! on the screen.
  4. rem It can be used to reward correct answers in a batch file, or as a subroutine
  5. rem in a larger .COM file.
  6.  
  7. locate 81,81
  8.  
  9. again:
  10.  
  11. for b=1 to 10
  12. for a=1 to 300
  13. sound a,1
  14. next a
  15. next b
  16.  
  17. width 40
  18. locate 12,18
  19. a$=chr$(2)
  20. print a$
  21. locate 14,14
  22. print "CORRECT!!!"
  23. locate 81,81
  24. for delay=1 to 6
  25. for delayagn=1 to 32000
  26. next delayagn
  27. next delay
  28. width 80
  29.  
  30. finish:
  31. end
  32.